#!/usr/bin/perl -w

use strict;
use warnings;

my @line;
my $file;

while (<>)
{
  open FILE, $ARGV or die "Cannot read '$file': $! ";
  while (<FILE>)
  {
    if (m/;----/)
    {
      @line = split /\./;
      print join '/', @line[0 .. $#line];
    }
    else
    {
      print $_;
    }
  }
}
